home *** CD-ROM | disk | FTP | other *** search
/ Games Gallery 98 / Games Gallery 98 - Disc 1.iso / Content / DOMINATN / dom1.exe / CLS.RPP < prev    next >
Encoding:
Text File  |  1996-10-19  |  92 b   |  9 lines
  1. var x: number;
  2.  
  3. randomize;
  4.  
  5. loop(x=1 to 50)
  6.   cls(rand(0, 255));
  7.   delay(50);
  8. endl
  9.